home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / objovr.zip / MAKEOBJ.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  683b  |  26 lines

  1. {$M 1024,0,0}
  2. uses
  3.   DOS, OBJTypes;
  4. var
  5.   BinaryDataFile : file of OBJitizedDataType;
  6.   OBJitizedData  : OBJitizedDataType;
  7.   I              : integer;
  8. begin
  9.   writeln ( 'MakeOBJ' );
  10.   writeln;
  11.   writeln ( 'Generating data to OBJitize ...' );
  12.  
  13.   for I := 1 to Max do
  14.     OBJitizedData [ I ] := sqrt ( I );
  15.  
  16.   writeln ( 'Creating data to file ...' );
  17.  
  18.   assign  ( BinaryDataFile, 'OBJitize.DAT' );
  19.   rewrite ( BinaryDataFile                 );
  20.   write   ( BinaryDataFile, OBJitizedData  );
  21.   close   ( BinaryDataFile                 );
  22.  
  23.   writeln ( 'Executing BinOBJ ...' );
  24.  
  25.   Exec ( 'c:\TP\BinOBJ.EXE', 'OBJitize.DAT OBJitize.OBJ OBJitizedDataLink' );
  26. end.